10 POKE53281,0:POKE53280,0:PRINT"[147]"
12 DT$="......................................................................"
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINTTAB(13)"[155][215]ALT [200]ARNED'S[129]"
40 PRINT"  [176][192][192][174][176][192][192][174][176][192][192][174]   [176][192][192][174][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][192][174]
42 [153]"  (null) TAN^-TAN< (null)  (null) TAN /TANTAN^  (null)  -TANTAN<-=TANEXP/TANTAN^
44 PRINT"  [173][192][192][189][173][192][192][189][173][192][192][189]   [173][192][192][189]  [177]  [189]  [173][189][173][192][189][173][192][192][189]"
46 PRINT"     [176][192][192][174][176][192][192][174][176][192][174] [176][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][178][192][174]
48 [153]"     (null)   (null)  (null)(null) (null) (null)  (null)  -TAN< /TANTAN^  (null)
50 PRINT"     [173][192][192][189][173][192][192][189][189] [173][192][189]  [177]  [173][192][192][189][173][192][192][189]  [177]
60 [153]"     1CONT - (null)RINT OUT A LENONTEST PEEKALLOT
62 PRINT"     2[154] - [210]ETURN TO [204][207][193][196][211][212][193][210]
70 [151]198,0
80 [161]A$:[139]A$[178]""[167]80
90 [139]A$[178]"2"[167]40000
100 [139]A$[179][177]"1"[167]80
110 [153]" SYSCHR$ET PRINTER READY AND PRESS A KEY.CONTON"
120 [151]198,0
130 [161]A$:[139]A$[178]""[167]130
140 [159]4,4,7
150 [152]4,,,,"(null)ATN(null)(null) LEFT$ATN(null)(null)VALSTR$'(null) CHR$VAL(null)-(null)(null)ATN(null)(null) LEN(null)(null)(null)VAL(null)(null)
160 PRINT#4:PRINT#4:PRINT#4
170 PRINT#4,,"[206][193][205][197]:"+LEFT$(DT$,61)
180 PRINT#4
190 PRINT#4,,"[193][196][196][210][197][211][211]:"+LEFT$(DT$,58)
200 PRINT#4
210 PRINT#4,,"[195][201][212][217]:"+LEFT$(DT$,30)+"[211][212][193][212][197]:"+LEFT$(DT$,10)+"[218][201][208]:"+LEFT$(DT$,11)
220 PRINT#4
230 PRINT#4,,"[198]ILL IN THE INFORMATION ABOVE AND THEN FILL IN THE NAMES OF THE
240 [152]4,,"ACTORS SHOWN IN THE GEO(null)AINT DOCUMENT. ATNN ANAGRAM OF THE NAME OF
250 PRINT#4,,"EACH ACTOR IS GIVEN TO HELP YOU. [212]HEN SEND YOUR ENTRY TO:
260 [152]4
270 [152]4,,,"CHR$EO-(null)TARS LENONTEST
280 PRINT#4,,,"606 [195]OMMON [211]TREET
290 [152]4,,,"(null)HREVEPORT (null)ATN 71101
300 PRINT#4:PRINT#4
302 PRINT#4,,"[193]NAGRAMMED [206]AME     [210]EAL [206]AME
304 [152]4,,"-----------------------------"
306 [152]4
310 [152]4,,"ATNLENRIGHT$STR$ VAL(null)(null) ATN(null)(null)(null) -- "[170][200](DT$,49)
312 [152]4
320 [152]4,,"PEEKATNSTR$ LEN(null)(null)(null)ATN(null) (null)(null)(null)VAL -- "[170][200](DT$,47)
322 [152]4
330 [152]4,,"CHR$RIGHT$(null)ATN MID$VAL(null) LEFT$VAL(null) -- "[170][200](DT$,50)
332 [152]4
340 [152]4,,"PEEKVAL(null)(null) (null)(null)(null)VAL -- "[170][200](DT$,53)
342 [152]4
350 [152]4,,"(null)ATN(null)CHR$ ATN(null)RIGHT$LENVAL MID$(null)(null)VAL -- "[170][200](DT$,47)
352 [152]4
360 [152]4,,"(null)ATN(null) LEN(null)(null)VAL ATN(null)RIGHT$(null)VAL -- "[170][200](DT$,48)
362 [152]4
370 [152]4,,"(null)(null)(null)CHR$ PEEK(null) LEN(null)RIGHT$PEEK -- "[170][200](DT$,50)
372 [152]4
380 [152]4,,"(null)LEFT$(null) CHR$ATN(null) PEEKATNPEEKVAL -- "[170][200](DT$,50)
382 [152]4
390 [152]4,,"(null)LEFT$(null)ATN MID$VAL(null)(null)(null) -- "[170][200](DT$,52)
392 [152]4
400 [152]4,,"CHR$(null)STR$ (null)(null)(null)LEFT$ LEN(null)(null)(null)RIGHT$VAL(null) -- "[170][200](DT$,46)
402 [152]4
410 [152]4,,"ATN STR$(null)(null)(null)LEFT$RIGHT$(null)(null) (null)RIGHT$(null)VAL -- "[170][200](DT$,47)
412 [152]4
420 [152]4,,"ATN STR$VAL(null)(null)VAL(null) (null)(null)RIGHT$(null)VAL -- "[170][200](DT$,48)
422 [152]4
430 [152]4,,"(null)(null)RIGHT$(null)VAL CHR$(null)(null) (null)(null)(null) -- "[170][200](DT$,49)
432 [152]4
440 [152]4,,"RIGHT$(null) LEFT$(null)(null) PEEK(null)(null)CHR$(null) -- "[170][200](DT$,50)
442 [152]4
450 [152]4,,"ATN (null)(null)(null)ATN(null) (null)VAL(null)(null) -- "[170][200](DT$,50)
452 [152]4
460 [152]4,,"(null)VALVAL(null) (null)VAL(null)(null)(null)(null) -- "[170][200](DT$,51)
470 [152]4:[160]4
480 [151]186,DV
490 [153]"                                     ON"
500 [137]70
999 [137]999
10000 D[178][194](186):N$[178]"0:B.GEO-STARS 1":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]